home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dbtools.lbr / FUNCLIB.CQD / FUNCLIB.CMD
Encoding:
Text File  |  1986-08-05  |  4.4 KB  |  126 lines
  1. * <<<=======================================================================>>>
  2. *     This program is Copyrighted and the Sole Property of Keith R. Plossl
  3. * 
  4. *            Program Name    : FUNCLIB.CMD
  5. *            Author        : Keith R. Plossl
  6. *            Date Written    : March 1984
  7. *
  8. *  <++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
  9. *  <           C O P Y R I G H T E D   S O F T W A R E   N O T I C E        >
  10. *  <           =====================================================        >
  11. *  <  This software is copyrighted under the laws of the United States of   >
  12. *  <  America and all rights are reserved by Keith R. Plossl.  This program >
  13. *  <  may be freely copied for non-commercial use provided the title block, >
  14. *  <  modification history and this notice remain intact.  Copying this     >
  15. *  <  program for Resale or for any other commercial purpose is STRICTLY    >
  16. *  <  FORBIDDEN and subject to federal prosecution.       KRP 3/1/84        >
  17. *  <++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
  18. *
  19. *                 M O D I F I C A T I O N    H I S T O R Y
  20. *
  21. *      Date            What                Who
  22. *
  23. * <<<=======================================================================>>>
  24. *
  25. * This program is a general function library for DBASE II.  This file
  26. * will need to have the function called by a name to execute the case.
  27. * Load the five character function code in a variable called FUNCTION.
  28. * Load the parameters as required by the function needed and say: DO FUNCLIB
  29. *
  30. *                  >>>> ----- W A R N I N G ----- <<<<
  31. *
  32. *  THE FOLLOWING IS LIST OF VARIABLES USED BY THIS LIBRARY.  CONSIDER THEM
  33. *  TO BE RESERVED WORDS OR YOUR VARIABLES WITH THE SAME NAME WILL BE GONE.
  34. *
  35. *        FLD
  36. *        C:CNT               
  37. *        C:NUM    
  38. *        ENDS
  39. *           SPCD
  40. *
  41. do case
  42. * <<<=======================================================================>>>
  43. *
  44. *          ----- >>> Lower Case ASCII Function <<< -----
  45. *     -----------------------------------------------------------
  46. *     | Function Call: LCASE           Input Parameters: FIELDV |
  47. *     |                    Output Variable: FIELDV |
  48. *     -----------------------------------------------------------
  49. *
  50.     case !(FUNCTION) = 'LCASE' .AND. TYPE(FIELDV) <> 'U'
  51.         store 1        to C:CNT
  52.         store len(trim(FIELDV)) to ENDS
  53.         do while C:CNT <= ENDS
  54.             store rank($(FIELDV,C:CNT,1)) to C:NUM
  55.             if C:NUM >= 65 .and. C:NUM <= 90
  56.                 if C:CNT = 1
  57.                     store CHR(C:NUM+32) to FLD
  58.                 else
  59.                     store FLD + CHR(C:NUM+32) to FLD
  60.                 endif
  61.             else
  62.                 store FLD + CHR(C:NUM) to FLD
  63.             endif
  64.             store C:CNT + 1 to C:CNT
  65.         enddo
  66.         store FLD to FIELDV
  67.     release 
  68. * <<<=======================================================================>>>
  69. *
  70. *        ----- >>> Normalize Case ASCII Function <<< -----
  71. *     -----------------------------------------------------------
  72. *     | Function Call: NORMA           Input Parameters: FIELDV |
  73. *     |                    Output Variable: FIELDV |
  74. *     -----------------------------------------------------------
  75. *
  76.     case !(FUNCTION) = 'NORMA' .AND. TYPE(FIELDV) <> 'U'
  77.         store 2        to C:CNT
  78.         store F        to SPCD
  79.         store len(trim(FIELDV)) to ENDS
  80.         store $(!(FIELDV),1,1)    to FLD
  81.         do while C:CNT <= ENDS
  82.             store rank($(FIELDV,C:CNT,1)) to C:NUM
  83.             if C:NUM >= 65 .and. C:NUM <= 90
  84.                 store C:NUM + 32 to C:NUM
  85.             endif
  86.             if C:NUM >= 97 .and. C:NUM <= 122
  87.                 if SPCD
  88.                     store FLD + !(CHR(C:NUM)) to FLD
  89.                     store F to SPCD
  90.                 else
  91.                     store FLD + CHR(C:NUM) to FLD
  92.                 endif
  93.             else
  94.                 if C:NUM = 32
  95.                     store T to SPCD
  96.                 else
  97.                     store F to SPCD
  98.                 endif
  99.                 store FLD + CHR(C:NUM) to FLD
  100.             endif
  101.             store C:CNT + 1 to C:CNT
  102.         enddo
  103.         store FLD to FIELDV
  104.     release FLD, C:CNT, C:NUM, ENDS, SPCD
  105. * <<<=======================================================================>>>
  106. *
  107. *        ----- >>>  Otherwise Undefined <<< -----
  108. *
  109.     otherwise
  110.         store 'UNKNOWN' to FUNCTION
  111.         
  112. endcase
  113. if FUNCTION <> 'UNKNOWN'
  114.     release FUNCTION
  115. endif
  116. return
  117. * <<<=======================================================================>>>
  118. *
  119. *           End of DBASE II  General Function Library
  120. *
  121. * <<<=======================================================================>>>
  122. *     This program is Copyrighted and the Sole Property of Keith R. Plossl
  123. * <<<=======================================================================>>>
  124. *
  125.  
  126.